Best of www.BestZips.com (Collector's Edition)/Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO/prgtools/prtsut53.zip/SU1SRC.ZIP/FDEMO18.DFM/FDEMO18.txt

Text File | 1996-12-09 | 21KB | 897 lines

object Form18: TForm18
  Left = 83
  Top = 20
  Width = 694
  Height = 671
  ActiveControl = Panel1
  Caption = 'Customers'
  Font.Color = clBlack
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 120
  Position = poScreenCenter
  TextHeight = 16
  object Label5: TLabel
    Left = 57
    Top = 112
    Width = 56
    Height = 20
    Caption = 'Version'
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 686
    Height = 382
    Align = alTop
    TabOrder = 0
    object Bevel3: TBevel
      Left = 12
      Top = 84
      Width = 274
      Height = 189
    end
    object Bevel2: TBevel
      Left = 4
      Top = 9
      Width = 545
      Height = 40
    end
    object Bevel1: TBevel
      Left = 329
      Top = 84
      Width = 224
      Height = 189
    end
    object Label6: TLabel
      Left = 41
      Top = 92
      Width = 64
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Licensee'
    end
    object Label9: TLabel
      Left = 73
      Top = 118
      Width = 32
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Date'
    end
    object Label10: TLabel
      Left = 20
      Top = 144
      Width = 85
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Customer'
    end
    object Label11: TLabel
      Left = 36
      Top = 170
      Width = 69
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Address1'
    end
    object Label14: TLabel
      Left = 36
      Top = 196
      Width = 69
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Address2'
    end
    object Label15: TLabel
      Left = 36
      Top = 222
      Width = 69
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Address3'
    end
    object Label16: TLabel
      Left = 28
      Top = 249
      Width = 77
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Telephone'
    end
    object Label22: TLabel
      Left = 377
      Top = 105
      Width = 76
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Quantity'
    end
    object Label23: TLabel
      Left = 404
      Top = 132
      Width = 48
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Price'
    end
    object Label24: TLabel
      Left = 388
      Top = 160
      Width = 64
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'SubTotal'
    end
    object Label25: TLabel
      Left = 340
      Top = 186
      Width = 117
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Shipping & Handling'
    end
    object Label26: TLabel
      Left = 348
      Top = 212
      Width = 109
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Tax'
    end
    object Label27: TLabel
      Left = 356
      Top = 238
      Width = 101
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Total'
    end
    object Label1: TLabel
      Left = 28
      Top = 16
      Width = 46
      Height = 16
      Caption = 'Product'
    end
    object Label30: TLabel
      Left = 28
      Top = 54
      Width = 433
      Height = 25
      Caption = 'Demo Registration - Only Print feature is functional'
      Font.Color = clBlack
      Font.Height = -20
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Preview: TBitBtn
      Left = 372
      Top = 10
      Width = 81
      Height = 33
      Hint = 'Preview /Print current page'
      Caption = '&Preview'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = PreviewClick
    end
    object ComboBox2: TComboBox
      Left = 89
      Top = 12
      Width = 242
      Height = 24
      Enabled = False
      ItemHeight = 16
      TabOrder = 1
      Text = 'Demo Program'
    end
    object Exit: TBitBtn
      Left = 462
      Top = 10
      Width = 77
      Height = 33
      Hint = 'Exit'
      Caption = '&Exit'
      ModalResult = 2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = ExitClick
    end
    object Edit12: TEdit
      Left = 464
      Top = 98
      Width = 81
      Height = 24
      ReadOnly = True
      TabOrder = 3
      Text = '0.00'
    end
    object Edit13: TEdit
      Left = 464
      Top = 126
      Width = 81
      Height = 24
      ReadOnly = True
      TabOrder = 4
      Text = '0.00'
    end
    object Edit14: TEdit
      Left = 464
      Top = 154
      Width = 81
      Height = 24
      ReadOnly = True
      TabOrder = 5
      Text = '0.00'
    end
    object Edit15: TEdit
      Left = 464
      Top = 186
      Width = 81
      Height = 24
      ReadOnly = True
      TabOrder = 6
      Text = '0.00'
    end
    object Edit16: TEdit
      Left = 464
      Top = 210
      Width = 81
      Height = 24
      ReadOnly = True
      TabOrder = 7
      Text = '0.00'
    end
    object Edit17: TEdit
      Left = 464
      Top = 234
      Width = 81
      Height = 24
      ReadOnly = True
      TabOrder = 8
      Text = '0.00'
    end
    object Memo9: TMemo
      Left = 12
      Top = 281
      Width = 546
      Height = 92
      Alignment = taCenter
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (

          'If you look closely, you'#39'll see that this form consists of 2 par' +
          'ts. The '

          'bottom part is the actual part that gets to be printed. It is st' +
          'ill on the '
        'same form so any information is accessible to both parts!'

          'The bottom form can be completely hidden but will still print wi' +
          'th PrintIt'

          'In this demo everything is disabled except for the Preview and E' +
          'xit buttons')
      ParentFont = False
      ReadOnly = True
      TabOrder = 9
    end
    object Edit18: TEdit
      Left = 110
      Top = 90
      Width = 163
      Height = 24
      ReadOnly = True
      TabOrder = 10
      Text = 'Mr. J. Smith'
    end
    object Edit19: TEdit
      Left = 110
      Top = 116
      Width = 163
      Height = 24
      ReadOnly = True
      TabOrder = 11
    end
    object Edit20: TEdit
      Left = 110
      Top = 142
      Width = 163
      Height = 23
      ReadOnly = True
      TabOrder = 12
    end
    object Edit21: TEdit
      Left = 110
      Top = 167
      Width = 163
      Height = 24
      ReadOnly = True
      TabOrder = 13
    end
    object Edit22: TEdit
      Left = 110
      Top = 192
      Width = 163
      Height = 25
      ReadOnly = True
      TabOrder = 14
    end
    object Edit23: TEdit
      Left = 110
      Top = 218
      Width = 163
      Height = 24
      ReadOnly = True
      TabOrder = 15
    end
    object Edit24: TEdit
      Left = 110
      Top = 242
      Width = 163
      Height = 25
      ReadOnly = True
      TabOrder = 16
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 382
    Width = 686
    Height = 262
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 1
    object ScrollBox: TScrollBox
      Left = 6
      Top = 6
      Width = 674
      Height = 250
      HorzScrollBar.Margin = 6
      VertScrollBar.Margin = 6
      VertScrollBar.Position = 72
      Align = alClient
      BorderStyle = bsNone
      Color = clBtnFace
      ParentColor = False
      TabOrder = 0
      object Label12: TLabel
        Left = 25
        Top = -31
        Width = 332
        Height = 17
        Caption = '1111 St James'#39' Street, Pretoria, South Africa, 0083'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        ParentFont = False
      end
      object Shape1: TShape
        Left = 20
        Top = -12
        Width = 737
        Height = 5
        Brush.Color = clBlack
      end
      object Label13: TLabel
        Left = 28
        Top = 172
        Width = 188
        Height = 19
        Caption = 'Thank you for registering '
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 280
        Top = 100
        Width = 66
        Height = 19
        Caption = 'Licensee'
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 280
        Top = 132
        Width = 114
        Height = 19
        Caption = 'Activation Code'
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 436
        Top = -31
        Width = 33
        Height = 17
        Caption = 'Fax :'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 428
        Top = 49
        Width = 3
        Height = 16
        Caption = '.'
      end
      object Label28: TLabel
        Left = 28
        Top = 844
        Width = 70
        Height = 18
        Caption = 'The Chief'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
      end
      object Label29: TLabel
        Left = 25
        Top = -63
        Width = 163
        Height = 26
        Caption = 'Demo Company'
        Font.Color = clBlack
        Font.Height = -23
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label19: TLabel
        Left = 468
        Top = -31
        Width = 115
        Height = 17
        Caption = '[phone]'
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        ParentFont = False
      end
      object Image1: TImage
        Left = 706
        Top = 58
        Width = 87
        Height = 106
        Picture.Data = {<image000.bmp>}
      end
      object Memo1: TMemo
        Left = 28
        Top = 200
        Width = 797
        Height = 89
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = False
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (

            'We appreciate your support. This document contains the informati' +
            'on necessary to activate your copy of our '

            'software. On the Demo Program that you have received, either fro' +
            'm a Bulletin Board, the Internet or directly'

            'from us there is an Icon option called ACTIVATE Our Product whic' +
            'h activates your copy of Our Product #1'
          ''

            '            To ACTIVATE your copy of Our Product #1 do the follo' +
            'wing:'
          '')
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
      end
      object Memo2: TMemo
        Left = 28
        Top = 297
        Width = 541
        Height = 40
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = False
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        Lines.Strings = (
          '             1. Select the ACTIVATE Our Product icon'
          '             2. Enter the Field REGISTERED To EXACTLY as:'
          '        ')
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 1
      end
      object Memo3: TMemo
        Left = 28
        Top = 412
        Width = 437
        Height = 21
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = False
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        Lines.Strings = (
          '             4. Enter your Activation Code as:')
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 2
      end
      object Memo4: TMemo
        Left = 28
        Top = 468
        Width = 525
        Height = 67
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = False
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        Lines.Strings = (
          '             5.Click on the OK Button'
          ''

            '             (If no typing errors occurred, your copy is now reg' +
            'istered)')
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 3
      end
      object Memo5: TMemo
        Left = 28
        Top = 569
        Width = 797
        Height = 65
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = False
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (

            'This copy of Out Product is for the use of 1 programmer only. Ea' +
            'ch additional copy must be licensed. '

            'There are no royalties for using the components in your executab' +
            'le programs. You may make copies'

            'for yourself and install it on another computer as long as there' +
            ' is only one person using it.')
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 4
      end
      object Memo6: TMemo
        Left = 28
        Top = 660
        Width = 771
        Height = 63
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = False
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (

            'Your support and satisfaction is very important to us. If you ha' +
            've a problem, please let us know. If you are'

            'satisfied with our product, feel free to distribute the unlicens' +
            'ed copy to others. We would also appreciate'
          'any recommendations on how to improve the software even further.'
          ''
          ''
          'Thank you and best regards.'
          ''
          ''
          '')
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 5
      end
      object Memo7: TMemo
        Left = 28
        Top = 867
        Width = 722
        Height = 28
        BorderStyle = bsNone
        Color = clWhite
        Ctl3D = False
        Font.Color = clBlack
        Font.Height = -18
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        Lines.Strings = (
          'Ps. This is a demo program'
          '')
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 6
      end
      object EditProduct: TEdit
        Left = 224
        Top = 172
        Width = 443
        Height = 25
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 7
        Text = 'Our Product #1'
      end
      object Memo8: TMemo
        Left = 28
        Top = 372
        Width = 585
        Height = 21
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = False
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsItalic]
        Lines.Strings = (

            '             3. Select the product you want to register from the' +
            ' Combobox')
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 8
      end
      object Edit1: TEdit
        Left = 22
        Top = 4
        Width = 120
        Height = 24
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 9
        Text = '12 January1996'
      end
      object Edit3: TEdit
        Left = 410
        Top = 97
        Width = 235
        Height = 25
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 10
        Text = 'Mr. J. Smith'
      end
      object Edit5: TEdit
        Left = 30
        Top = 103
        Width = 235
        Height = 24
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 12
        Text = 'South Africa'
      end
      object Edit6: TEdit
        Left = 30
        Top = 124
        Width = 235
        Height = 24
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 13
        Text = '0083'
      end
      object Edit7: TEdit
        Left = 410
        Top = 129
        Width = 235
        Height = 25
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 14
        Text = '12345'
      end
      object Edit8: TEdit
        Left = 30
        Top = 60
        Width = 235
        Height = 24
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 15
        Text = 'Mr. J.Smith'
      end
      object Edit4: TEdit
        Left = 30
        Top = 81
        Width = 235
        Height = 24
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 11
        Text = 'Nowhere'
      end
      object Edit10: TEdit
        Left = 98
        Top = 345
        Width = 236
        Height = 25
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 16
        Text = 'Mr. J. Smith'
      end
      object Edit2: TEdit
        Left = 98
        Top = 436
        Width = 236
        Height = 25
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 17
        Text = '12345'
      end
    end
  end
  object DBPrintWin1: TDBPrintWin
    About = 'Version 5.32'
    AboutRegistered = 'TOM SNIDER'
    HeaderFont.Color = clWindowText
    HeaderFont.Height = 16
    HeaderFont.Name = 'Arial'
    HeaderFont.Style = []
    Font.Color = clWindowText
    Font.Height = 16
    Font.Name = 'Arial'
    Font.Style = []
    FooterFont.Color = clWindowText
    FooterFont.Height = 12
    FooterFont.Name = 'Arial'
    FooterFont.Style = []
    FrameObjects = True
    clBtnFaceAsWhite = True
    OutputTo = poViewer
    Orientation = Default
    Units = poInches
    ViewButtonVisible = False
    ShowCancelDialog = True
    LineWidth = 0
    Copies = 1
    GridBackDrop = False
    GridBackDropUnits = poInches
    ZoomPercentage = 25.000000000000000000
    HeaderTop = 0.500000000000000000
    HeaderLeft = 0.500000000000000000
    HeaderStringLeft = '                                  '
    HeaderStringCenter = '                                  '
    HeaderStringRight = '                                  '
    HeaderEnabled = True
    HeaderOutlined = False
    HeaderFilled = False
    TextColor = clBlack
    ViewBkColor = 11234567
    ViewHeading = 'Printit Viewer'
    HeadingColor = clSilver
    FrameStyle = frThin
    FooterTop = 10.170000000000000000
    FooterString = '                                                  '
    FooterEnabled = True
    FooterOutlined = False
    FooterFilled = False
    FixSansSerif = True
    FooterStringLeft = 'Printed on @Date at @Time'
    FooterStringRight = 'Page @Page'
    BorderLeft = 0.500000000000000000
    BorderRight = 0.500000000000000000
    LineSpacing = 2.800000000000000000
    Left = 488
    Top = 56
  end
end